###########################################################################
#	$Id: orionModuler.p 3 2009-04-09 10:23:22Z donbeave $
###########################################################################

@CLASS
orionModuler

@USE
pf/types/pfString.p

@OPTIONS
locals

#----- Public -----

@assignAllModules[objModule;strModulesPath]
$tModules[^file:list[$strModulesPath;\.p^$]]

^if($tModules){
	^tModules.menu{
		$sFile[$tModules.name]
		
		$sPath[^pfString:left[$sFile;Module.p]]
		$sModuleName[^pfString:left[$sFile;.p]]
		
		^objModule.assignModule[$sPath;
			$.class[$sModuleName]
			$.file[$strModulesPath/$sFile]
			$.args[
				$.modulesPath[$strModulesPath/^sPath.lower[]/]
			]
		]
	}
}
#end @assignAllModules[]